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*® * 
:* NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: TRANSFERRED ° 
** wy 
:* THE INFORMA ION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:® AND SHOULD « 
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A NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


; LARRASASLASAALAALLAAAAELALASESAREALAREEARARARRRRRRRRRRRRRR REARS RRS ASR ARRAS SAS Of 
: "FACILITY: General Utility Library 
; ABSTRACT: 


Extend precision of multiplier, mpl tipty by quite} tcond 
) 


and extract integer and fractional portion of result. 


; ENVIRONMENT: User Mode, AST Reentrant 


; MODIFIED BY: 
se. jO9rOF TH 78 + : VERSION 00 


- Put aforsten number in standard format: one digit of o veroten 
mber ene three digits of edit number. JBS 16-N 

- add "to PSECT directive, JBS 21 seats 

- Minor” mA improvements. SBL 05-Feb- 

- Use local handler that lets all but documented signals through. SBL 17-Se 
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+ AUTHOR: Steven B. Lionel, CREATION DATE: 04-Oct-78 
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t EXTERNAL SYMBOLS: 


-EXTRN LIBSSIG_TO_RET Library routine to convert a signal 
to error return to caller 
of LIBSEMODF 


RO = signaled condition 
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System symbols 


: EQUATED SYMBOLS: 


+o 4 oe ee ee ee oie oie eee ee elelelels leleleleien4 
SOOQoooooooooooooooooooo 


00000004 mulr = 4 ; multiplier 

00000008 mulrx = 8 ; multiplier extension 
0000000C muld = 12 3; multiplican 

00000010 int = 16 3 nteger portion returned 
00000014 fract = 20 3; fractional portion returned 


: OWN STORAGE: 


: PSECT DECLARATIONS: 


-PSECT _LIBSCODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT, LONG 
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; Condition handling facility symbols 
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As -SBTTL LIBSEMODF = Extended multiply and integerize 
; FUNCTIONAL DESCRIPTION: 


L IBSEROOF provides the functionality of the VAX hardware 
nstruction EMODF to high-level Language users. 

The floating point multiplier extension operand (second operand) 
is conc steneted with the floating point multiplier (fir 

operand) to gain 8 additional low order fraction bits. 

The multiplicand operand is mut srey ied by the extended 
multiplier operand. After gylt plication, the integer 

portion is extracted and a bit floating point number is 
formed from the fractional part of the product by truncating 
extra bits. The multiplication is such that the result is 
squivenent to the exact product truncated to a fraction 

field of 32 bits. Regarding the result as the sum of an 

integer and fraction of the same sign, the integer operand 

is replaced by the soe part of the result and the 

fraction operand is replaced by the rounded fractional 

part of the result. 
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SS$_NORMAL - successful execution 

SS$_INTOVF - soteper overflow or floating overflow 
SS$_FLTUND - floa 

$S$_ROPRAND - 


ALL other exceptions are resignaled. 
SIDE EFFECTS: 
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ing underflow 
reserved operand 
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: INPUT PARAMETERS: 


ee i i a at a a sa ss ss 2 + 2 22 2) > > 9 2 — ss 2s 2 2) ss 2 ss ss 


4 ; CALLING SEQUENCE: 

00 status.wlc.v = LIBSEMODF (mulr.rf.r. mulrx.rb.r, muld.rf.r, 
00 nt.wl.r, fract.wf.r 

00 

3 

0000 mulr.erf.r - floating point multiplier 

0000 mulrx.rb.r - byte to be appended to multiplier fraction 
44 ; muld.rf.r - floating point multiplicand 

0000 ; IMPLICIT INPUTS: 

44 : 

444 NONE 

$809 ; OUTPUT PARAMETERS: 

0000 

$4 int.wl.e - integer portion of result 

4444 fract.wf.r - fractional portion of result 

3 ; IMPLICIT OUTPUTS: 

80 ; FUNCTION VALUE: 
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! 13 Any exceptions other than those Listed above are signaled. 
— 
4000 : 5 ENTRY LIBSEMODF, “M<IV> ; Entry point 
6D 15°AF  9E 1 “ MOVAB B*HANDLER, (FP) 3; Enable local handler to 
3 1 8 ; process exceptions 
10 8c Oc BC 08 BC % 4: 54 096 160 EMODF a@mulr(AP), - : perform multiplication | 
gH] 161 @mulrx(AP), - ; trap on exception to 
11 196 a@muld(AP), - ; handler which will 
011 16 aint(AP), - ; unwind a return error 
011 164 afract (AP) : condition in RO to 
at 192 ; caller of LIBSEMODF. | 
50 01 9A 31 183 MOVZBL #1, RO ; success status code | 
04 Baie 19) RET 3; return 
0913 171 HANDLER: 
0000 001 \7¢ -wORD 0 
B17 17% | 
0017 175: If the exception is one of the documented exceptions for this routine, 
0017 176 ; call LIBSSIG_TO_RET to return it as a status. Otherwise, resignal. 
0017 177; &#Also, resignal Tf the depth is not zero. 
fol, 179 | 
50 O08 AC 00 0017 180 MOVL CHFSL_MCHARGLST(AP), RO ; Get mechanism vector address 
08 AO D5 0018 181 TSTL git OL A DEP TEKRY? ; Is depth zero? 
32.—=é«é21l2 33 1 ¢ BNEQ 0$ ; If not, resignal 
51 04 AC DO 00 1 MOVL CHFSL_SIGARGLST(AP), R1 ; Get signal vector address 
50 04 Ail D0 0024 184 MOVL CHFS$L_SIG_NAME(R1), RO : Get signalled condition 
047C 8F 50 B61 0028 185 CMPW RO, #SS$_INTOVF ; Compare conditions 
18 13 0020 1 § BEQL :; If it matches, don't resignal 
049C 8F ‘7 Bt iH + t4 Brae . #SS$_FLTUND 
0454 8F ro a O36 133 Hy #SS$_ROPRAND 
04C4 8F 50 a} 03p 13) cues RO, #SS$_FLTUND_F | 
04 Al 049C BF 3C Bee 198 MOVZWL #SSS$_FLTUND, CHFSL_SIG_NAME(R1) ; Change fault code to trap code 
00000000'GF 6C 3 be4 132 10$: cate (AP), G*LIB$SIG_TO-RET ; Return signal as a status 
50 0918 8F if 034 136 90$ MOVZWL #SS$_RESIGNAL, RO ; Resignal condition 
04 03 4 RET 
3 19 - END 
| 
| 
| 
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CHFSL_MCHARGLST : 8 
CHF SL"“MCH_DEPTH z 
CHFSL-SIGARGLST = 4 
CHF SL-S1G_NAME = 4 
FRACT = 4 
HANDLER 15 R 02 
LIBSEMODF 00 RG 02 | 
pS S1S_1O_RET pooeeees | 
= 
= 
ees FLTUND = 90000¢9¢ 
SS$_FLTUND_F = 000004C4 
SS$_INT = 000004 ¢ 
SS$~RESIGNAL = 0000091 
SS$_ROPRAND = 00000454 


emo remem eee wee + 


PSECT name Allocation PSECT No. Attributes 
» OS « 00000000 ( e+} NOPIC USR CON ABS LCL NOSHR NOEXE NORD at NOVEC BYTE 
SABSS 00000000 ¢ 0°) oF J.) NOBIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
_LIBSCODE 00000058 (« 8 2¢ 22) ple Use CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
euaesesasunquasenaeennetd 
H Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization $9 00:00:00 .08 $8: 00:01. -07 
—' processing 131 00:00: +¢? 1.93 
189 3:8 702.76 0:00:08.6 
Synbol table sort 0:00:00.46 0:00: :00.6 
s 2 50 8: :00.5 0:00:03. 
ae table output 4 :00:00.0 BBR 88-8 
Psect synopsis output 0:00:00.0 8 06:60. 
Cross-reference output Bp BR: 0.0 0:00:00.00 
Assembler run totals 40 0:00:04.1 0:00:16.61 


Ihe york ing ort Limit was 1200 pages. 

1537 bytes (43 pages) of virtual memory were used to buffer the intermediate c 

there were 30 pages of symbol table space alvocated to hold 428 non-local and 5° te symbols. 
199 source Lines were read in Pass 1, produci oe object records in Pass 2 

9 pages of virtual memory were used to define 8 macros. 


teste} Macro Run Statistics 
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! Macro Library statistics ! 
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Macro Library name Macros defined 
“$255$DUA28: CSYSLIBISTARLET.MLB:2 5 
486 GETS were required to define 5 macros. 


There were no errors, warnings or information messages. 
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